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MYCLASS. HPP 
tfifndef _MYCLASS_HPP_ 
ttdefine _MYCLASS_HPP_ 

// 

// FILE NAME: myclass. hpp 

// 

#include <idaif.hpp> 
#include <idaifs.hpp> 
#include <idabndg . hpp> 
#include <idach.hpp> 
iinclude <idamw.hpp> 
#include < idauuid . hpp> 
#include <idaexc.hpp> 

#include <ibag.h> 
#include <idaifb.hpp> 
#include <ixdims . hpp> 
tfinclude <ixdimstr . hpp> 
#include <ixdimsac . hpp> 
#include <ixdimsca . hpp> 
#include <ixdimsco . hpp> 
ttinclude <ixdimsns . hpp> 
#include <ixdimspo . hpp> 
#include <ixdimspf . hpp> 
#include "myclass . imc" 

class myclass : 



public IStandardNotif ier, 
public IXDMQIMSConversation, 
public IDAInterf aceBase , 
public virtual myclassDef init ion 

{ 

public : 

myclass ( ) 

{ 

// Tell object to use IMS stubs 
try { 

this->getInterfaceStub ( IXDMQIMS :: instance 0) ; 

) ' 

catch ( IDANoInterfaceStubException& ex) { 

this- >addlnterf aceStub (Mnew ims_myclass_cs tub) 
IXDMQIMS : : instance ( ) ) ; 



// Set up MQI persistence attributes 
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this- >addAt tributes (&IXDMQIMSPersistenceOf f : : instance ( ) ) ; 
this->addAttributes (addFv_name ( ) , &IXDMQIMSPersistenceOf f : : instance 0 ) ; 

pimsco_ = new IXDMQIMSConvAttr ( {IXDMQIMSConversation *) this); 
this->addAttributes ( pimsco_ ); 

pimsac_ = new IXDMQIMSAccess ( (char * ) getName ( ) ) ; 
this- >addAttributes (pimsac_) ; 
IXDMQlMSTransaction *trans; 

trans = new IXDMQlMSTransaction ( "TCLI0040 " , 

'1' , 

(char *)getName(), 
•C 

, 0x20 

M II 
, 1 

, o 

, 0x20 

M II 
, 1 

, o 

) ; 

imstatts_.add( (void *) trans ); 

this- >addAttributes (addFv_name ( ) , trans); 

imsns_ = new IXDMQIMSNameService ( &IXDMQIMS : : instance f ) , getPrimaryld ( ) , 

getSecondaryld ( ) , (char *) getName ()) ; 

IXDMQIMS : : instance ( ) . addNameService (imsns_); 

/ / Import from correct place 

this- >importBindings (IXDMQIMS : : instance ( ) ) ; 

> 

-myclassO { 

if (^^JLL ! = pimsco_) 

delete pimsco_; 
if (NULL ! = pimsac_) 

delete pimsac_; 

IXDMQlMSTransaction *tr; 
while (! imstatts_ . isEmpty () ) { 

tr = (IXDMQlMSTransaction *) ims tatts_ . anyElement ( ) ; 

imstatts_ . remove ( tr) ; 

delete tr; 

} 

IXDMQIMS : : instance ( ) . removeNameService ( imsns_) ; 
delete imsns_; 

} 
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virtual void add ( myclass_add_I* inputMsg, myclass_add_0* outputMsg ) 
IDABinding* binding; 

if (blist .numberOf Elements () == 0) 
( (myclass * ) this) - >blist = 

( (myclass *) this) - >importBindings ( ) ; 

IBag< IDABinding *>::Cursor current (blist ) ; 

current . setToFirst ( ) ; 

if (! current . isValid() ) { 

throw IDANoBindingException(* (myclass *)this); 

binding = blist . elementAt (current ) ; 

IDACallHandle ch = binding- >mw {)- >createCallHandle 0 ; 
ch.set( ( (myclass +) this) - >getPrimaryId ( ) , 

( (myclass * ) this ) - >getSecondaryId ( ) , 

addFv_name ( ) , binding); 

( (myclass *) this) - >setAttributes (ch) ; 
ch . genRequest ( ) ; 
try { 

( (ims_myclass_cstub *) ( (myclass 
*) this) ->getInterfaceStub(*binding->mw() ) ) ->add(ch, inputMsg, outputMsg) ; 
ch.genConf irm( ) ; 
} catch (IException& ex) { 



private : 

IXDMQIMSNameService *imsns_; 
IXDMQIMSConvAttr *pimsco_; 
IXDMQIMSAccess *pimsac_; 
IBag<void * > imstatts_; 

}; 

#endif 

MYCLASS . IMC 
tfifndef _MYCLASS_IMC__ 
#define MYCLASS IMC 



ch . genConf irm ( ) ; 
throw (ex) ; 



// 

// FILE NAME: myclass . imc 
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// 



#include < ixdimsex . hpp> 
#include <idacicch . hpp> 
ttinclude <ixdimsch. hpp> 

#inclurje "myclass . hpd" 

class ims_myclass_cstub : 



static ims_myclass_cstub& instance () 



if (instance^ == NULL) 

instance_ = new ims_myclass_cstub; 
return (*instance_) ; 



void add ( IDACallHandlefc ch, myclass_add_I* inputMsg, myclass_add_0+ 
outputMsg) 



ch. start () ; 

ch << (myclass_add_I&) ( + inputMsg) ; 
ch. transceive ( ) 

ch >> (myclass_add_0&) (*outputMsg) ; 
outputMsg- >notify ( ) ; 
ch . done ( ) ; 



static ims_myclass_cstub+ instance^; 



ims _myclass_cstub* ims_myclass_cstub : : instance^ = NULL; 
tfendif 

MYCLASS . HPD 
#ifndef _MYCLASS_HPD_ 
ttdefine _MYCLASS_HPD_ 

// Class: myclass 
// 

// FILE NAME : myclass. hpd 

// 



public IDAInter faceS tub, 
public myclass_stub { 



public ; 



private 
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tfinclude <istring . hpp> 

#include <idauuid.hpp> 

^include <idaifd.hpp> 

^include <idach.hpp> 

#include "myclass . imd" 



claiss ruyciassDef inition : public virtual IDAInterf aceDef inition 

r 
V 

public : 

myclassDef inition ( ) 

{ 

setSecondaryld (IDAUuid: :nil . toString ( ) ) ; 
setName { "myclass " ) ; 

} 

IDAUuid getPrimaryId( ) { 

return IDAUuid ( "165c9ec5-2ald-02f 0-8000-400011528584 " ) ; 

} 

IString addFv_name ( ) const { 

return IString { "void myclass :: add { myclass_add_I* inputMsg, 
myclass_add_0* outputMsg )"); 

} 

private : 

}; 

class myclass_stub : public virtual myclassDef inition 

{ • .- 

public : 

virtual void add ( IDACallHandlefc ch, myclass_add_I* inputMsg, 
myclass_add_0* outputMsg) = 0; 

}; 

#endif 

MYCLASS * IMD 
#ifndef _MYCLASS_IMD_ 
ttdefine _MYCLASS_IMD_ 

// 

// FILE NAME: myclass . imd 

// 

^include < is tdnt f y . hpp> 
^include < istring . hpp> 
^include <idach.hpp> 
include < idacicch . hpp> 
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#include <inotif ev . hpp> 
#include <istdntf y . hpp> 
^include < is tring . hpp> 
^include <ivseq.h> 
#include <ixdimsex . hpp> 
#include <ixdimstg . hpp> 

class myclass_add__Lpagql_args { 
public: 



myclass_add_Lpagel_args ( ) { 

opl_ = 0; 

op2_ = 0; 
opl_flag_ = 0; 
op2_flag_ = 0; 



}; 



unsigned short int opl__; 
IBoolean opl_flag_; 
unsigned short int op2_; 
IBoolean op2_flag_; 



inline IDACallHandlefc operators ( IDACallHandlefc ch, const 

myclass_add_Lpagel_args& d) 

{ 



ch.of fsetLLO ; 

ch << IDACICSCallHandlelnternal : :PIC(ch, 
ch << IDACICSCallHandlelnternal :: AUG (ch, 
ch << (unsigned short int &)d.opl_; 
ch << IDACICSCallHandlelnternal: : PIC (ch, 
ch << IDACICSCallHandlelnternal: : AUG (ch, 
ch << (unsigned short int &)d.op2_; 
ch.setLLO ; 
return ch; 



"9 (4) ") ; 

" DISPLAY_NUMERIC " 
"9 (4) ").; 

" D I S PLAY- -NUMER I C " 



class myclass_add_Lpagel 
public : 

myclass_add_Lpagel ( ) 



public IStandardNotif ier { 



~myclass_add_Lpagel ( ) 



myclass_add_Lpagel& operator^ (const myclass add Lpagel& aLpagel ) 
{ " " 

setopl (aLpagel_. opl ( ) ) ; 
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setop2 (aLpagel_.op2 ( ) ) ; 
return *this; 

} 

myclass_add_Lpagel (const myclass_add Lpagel& aLpagel ) 

setopl (aLpagel_. opl {) ) ; 
setop2 (aLpagel_. op2 () ) ; 

} 

void iio'.' j.f y ( ) 
{ 

if (args_.opl_f lag_) notifyObservers ( INotif icationEvent (setoplld, 
*tbis)) ; 

if (args_.op2_f lag_) notifyObservers ( INotif icationEvent (setop2Id / 
*this) ) ; 
} 

unsigned short int opl () const 

{ 

return (args_.opl_) ; 

} 

static INotif icationld setoplld; 

myclass_add_Lpagel& setopl (const unsigned short int& aopl ) 

{ 

args_.opl_ = aopl; 

notifyObservers ( INotif icationEvent {setoplld, *this) ) ; 
return *this; 

} 

unsigned short int op2 () const 

{ 

return (args_ . op2_) ; 

} 

static INotif icationld setop2Id; 

myclass_add_Lpagel& setop2 (const unsigned short int& aop2 ) 

{ 

args_.op2_ = aop2 ; 

notifyObservers ( INotif icationEvent (setop2Id, *this) ) ; 
return *this; 



myclass_add_Lpagel_args args 



inline IDACallHandle& operator<< ( IDACal lHandle& ch, const myclass add Lpagel& 
d) " " v 

{ 
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ch << (myclass_add_Lpagel_args &)d.args_ 
return ch; 



class myclass_add_I : public IStandardNotif ier { 
public: 

myclass_add_I () 

{ 

Lpagel_. add rst (new myclass_add_Lpagel ) ; 
Lpagel_1:lag_ = 0; 

} 

~myclass_add_I ( ) 

{ ' ■ 

while ( J Lpagel_. isEmpty ( ) ) { 

myclass_add_Lpagel+ anElement = Lpagel_. f irstElement () ; 
Lpagel_. removeFirst ( ) ; 
delete anElement; 

} 

} 

myclass_add_I& operator^ {const myclass_add_ISE ainputMsg) 

{ 

while { !Lpagel_. isEmpty ( ) ) { 

myclass_add_Lpagel* anElement = Lpagel_. f irstElement {) ; 
Lpagel_. removeFirst { ) ; 
delete anEleme;;. ; 

} 

IVSequence<myclas£;_ add_Lpagel*> :: Cursor cursor (ainputMsg . Lpagel_) ; 
f orCursor (cursor) 

Lpagel_. addAsLast (new myclass_add_Lpagel ( *cursor . element ( ) )) ; 
notifyObservers { j Notif icationEvent ( Lpagel_Id ,' -*this) ) ; 
Lpagel_flag_ = ainputMsg . Lpagel_f lag_; 
return *this; 

} 

myclass_add_I (const myclass add I& ainputMsg) 
{ 

IVSequence<myclass_add_Lpagel*> : : Cursor cursor { ainputMsg . Lpagel_) ; 
forCursor (cursor) 

Lpagel_. addAsLast (new myclass_add_Lpagel { *cursor . element ( ) )) ; 
notifyObservers ( INot if icationEvent ( Lpagel_Id, *this)) ; 
Lpagel__f lag_ = ainputMsg . Lpagel_f lag_; 

} 

void notifyO 

{ 

if (Lpagel_f lag_) { 

notifyObservers ( INot i f icationEvent ( Lpagel_seqld , *this) ) ; 
notifyObservers { INot if icationEvent { Lpagel_Id , *this)); 
notif yObservers ( INotif icationEvent ( setoplld, *this)); 
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notifyObservers ( INotif icationEvent (setop2Id , *this) ) ; 

} 



IVSeguence<myclass_add_Lpagel*> Lpagel_seq() { 
return (Lpagel_) ; 

} 

static INotif icationld Lpagel_seqld; 

myclass_add_I & setLpagel_seq ( tvsc que.rice<myclass_add_Lpagel* > * 
aLpagel_) { 

while ( !Lpagel_ . isKrapty () ) { 

myclass_adq_Lpagel* anElement = Lpagel_ . f irstElement () ; 
Lpagel_. rrjMo\/eFirst ( ) ; 
delete anElement; 

} 

IVSequence<myclass_add_Lpagel*> : rCursor cursor (+aLpagel_) ; 
f orCursor (cursor) 

Lpagel_ . addAsLast (new myclass_add_Lpagel ( *cursor .element ( ) ) ) ; 
notifyObservers ( INotif icationEvent (Lpagel_seqld , *this) } ; 
return *this ; 



myclass_add_Lpagel Lpagel () { 

return (* (Lpagel_, f irstElement ( ) ) ) ; 

} 

static INotif icationld T, pa gel_Id; 

myclass_add_I & setLpagcl ( myclass_add_Lpagel* aLpagel_) { 

while ( !Lpagel_. isEmpty () ) { 

myclass_add_Lpagel* anElement = Lpagel_. f irstElement 0 ; 
Lpagel_ . removeFirst ( ) ; 
delete anElement; 

} 

Lpagel_.add (new myclass _add_Lpagel ( *aLpagel_) ) ; 
notifyObservers ( INotif icationEvent ( Lpagel_Id, *this) ) ; 
return *this; 

} 



unsigned short int opl ( ) const 

return ( Lpagel_ . f irstElement ()- >opl ()) ; 

static INotif icationld setoplld; 
myclass_add_I & setopl ( const unsigned short int& aopl 



Lpagel_. f irstElement ( ) ->setopl (aopl) ; 

notifyObservers ( INotif icationEvent (setoplld, *this) ) ; 
return *this; 

unsigned short int op2 ( ) const 
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return ( Lpagel_. f irstElement ( ) - >op2 ( ) ) ; 

} 

static INotif icationld setop2Id; 
myclass_add_I & setop2 ( const unsigned short int& aop2 

) 

{ 

Lpagel_. f irstElement ( ) ->setop2 (aop2) ; 

notifyObservers ( INotif icationEvent (setop2Id, *this) ) ; 
return *this; 

} 

IVSequence<myclass_add_Lpagel*> Lpagel_; 
IBoolean Lpagel_f lag_; 

}; 

inline IDACallHandlefc operator<< (IDACallHandlefc ch, myclass_add_I& d) 

{ 

IVSequence<myclass_add_Lpagel +>::Cursor cursor (d . Lpagel_) ; 
forCursor (cursor ) { 

ch << d. Lpagel_. elementAt (cursor) ; 

d . Lpagel_f lag_ = l; 

} 

ch. setPageBit ( ) ; 

ch . stripNullSegments ( ) / 

return ch; 

> 

class myclass_add_Lpage2_ result { 
publ ic : 

myclass_add_Lpage2_result ( ) { 

resultl_ = 0; 
resultl__f lag_ = 0; 

} 

unsigned short int resultl_; 
IBoolean resultl_f lag_,- 

}; 

inline IDACallHandlefc operator>> ( IDACallHandlefc ch, 
myclass_add_Lpage2_result& d) 

{ 

if (ch.notNullSegment () ch . stripLL ( ) ) { 

ch >> IDACICSCallHandlelnternal: :PIC(ch, "9(4)"); 

ch >> IDACICSCallHandlelnternal: : AUG (ch, "DISPLAY_NUMERIC" ) ; 

ch >> (unsigned short int &) d . result 1_; 

if (ch. f ieldlsSet () ) d . resul tl_f lag_ = 1; 
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} 

return ch; 

} 

class myclass_add_Lpage2 : public IStandardNotif ier { 
public : 

myclass_add_Lpage2 ( ) 

{ 
} 

-myclass_add_Lpage2 () 

{ 
) 

myclass_add_Lpage2& operator= (const myclass_add_Lpage2& aLpage2_) 

{ 

setresultl (aLpage2_. resultl ( ) ) ; 
return *this; 

} 

myclass_add_Lpage2 (const myclass__add_Lpage2 & aLpage2_) 

{ 

setresultl (aLpage2_ . resultl ( ) ) ; 

} 

void notify () 

{ 

if ( result_ . resultl_f lag_) 
notif yObservers ( INotif icationEvent (setresultlld, *thos)) ; 

} 

unsigned short int resultl () const 

{ 

return ( result_ . resultl_) ; 

} 

static INotif icationld setresultlld; 

myclass_add_Lpage2& setresultl (const unsigned short int& aresultl) 

{ 

result_. resultl_ = aresultl; 

not if yObservers ( INotif icationEvent ( setresultl Id , *this)); 
return *this; 

} 



myclass_add_Lpage2_result result_ 
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inline IDACallHandleS operator>> (IDACallHandlei ch, myclass add_Lpage2& d) 
{ 

ch >> (myclass_add_Lpage2_result &) d . results- 
return ch; 

} 

class myclass_add_0 : public IStandardNotif ier { 
public: 

myclass_add_0 ( ) 

{ 

Lpage2_. addAsFirst (new myclass_add_Lpage2 ) ; 
Lpage2_flag_ = 0; 

} 

~myclass_add_0 ( ) 
{ 

while ( ! Lpage2_. isEmpty ( } ) { 

myclass_add_Lpage2* anElement ~ Lpage2_. f irstElement ( ) / 
Lpage2__ . removeFirst ( ) ; 
delete anElement,- 

} 

} 

myclass_add_0& operator= (const myclass_add_0& aoutputMsg) 

{ 

while (! Lpage2_. isEmpty () ) { 

myclass_add_Lpage2* anElement = Lpage2_. f irstElement (); 
Lpage2_ . removeFirst ( ) ; 
delete anElement; 

} 

IVSequence<myclass_add_Lpage2*> : : Cursor cursor (aoutputMsg . Lpage2_) ; 
forCursor (cursor) 

Lpage2_ . addAsLast (new myclass_add_Lpage2 ( *cursor . element ( ) ) ) ; 
notif yObservers ( INot if icationEvent ( Lpage2_Id, *this) ) ; 
Lpage2_f lag_ = aoutputMsg . Lpage2_flag_; 
return *this ; 

} 

myclass_add_0 ( const myclass_add_0& aoutputMsg) 

{ 

IVSequence<myclass_add_Lpage2*> : : Cursor cursor (aoutputMsg . Lpage2_J ; 
forCursor (cursor) 

Lpage2_ . addAsLast (new myclass_add__Lpage2 ( *cursor , element ( ) ) ) ; 
notif yObservers { INot if icationEvent ( Lpage2_Id, *this)); 
Lpage2_flag_ = aoutputMsg . Lpage2_flag_; 

} 

void notify() 
{ 

if (Lpage2_f lag_) { 

not if yObservers' ( INotif icationEvent (Lpage2_seqld ( *this) ) ; 
notif yObservers ( INotif icationEvent (Lpage2_Id , *this) ) ; 
notif yObservers ( INot if icat ionEvent ( setresul t 1 Id , +this) ) ; 
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4 • 

} 



} 

IVSequence<myclass_add_Lpage2*> Lpage2_seq() { 
return (Lpage2_) ; 

} 

static INotif icationld Lpage2_seqld ; 

myclass_add_0 & setLpage2_seq ( IVSequence<myclass_add_Lpage2 * > * 
aLpage2_) { 

while.( !Lpage2_.isEmpty() ) { 

myclass_add_Lpage2* anElement = Lpage2_ . f irstElement ( ) ; 
Lpage2_ . removeFirst ( ) ; 
delete anElement; 

} 

IVSequence<myclass_add_Lpage2*> : :Cursor cursor ( *aLpage2_) ; 
forCursor (cursor) 

Lpage2_. addAsLast (new myclass_add_Lpage2 ( *cursor . element ( ) ) ) ; 
notifyObservers ( INotif icationEvent (Lpage2_seqld, *this) ) ; 
return *this; 

} 

myclass_add_Lpage2 Lpage2 () { 

return (* (Lpage2_. f irstElement 0 ) ) ; 

} 

static INotif icationld Lpage2_Id; 

myclass_add_0 & setLpage2 ( myclass_add_Lpage2* aLpage2_) { 

while (! Lpage2_. isEmpty () ) { 

myclass_add_Lpage2* anElement = Lpage2_ . f irstElement () ; 
Lpage2_. removeFirst ( } / 
delete anElement; 

} 

Lpage2_. add (new myclass_add_Lpage2 (*aLpage2_) ) ; 
notifyObservers ( INotif icationEvent (Lpage2_Id , *this)); 
return *this; 

} 

unsigned short int resultl ( ) cons,- 

( 

return ( Lpage2_ . f irstElement ()- >resultl ()) ; 

} 

static INotif icationld setresult lid; 
myclass_add_0 & setresultl ( const unsigned short int& 

aresultl ) 

{ 

Lpage2_. firstElement () ->setresultl (aresultl) ; 
notifyObservers ( INotif icationEvent (setresultlld, *this) ) ; 
return *this; 

} 

IVSequence<myc lass_add_Lpage2 * > Lpage2_ ; 
IBoolean Lpage2_f lag_; 

); 

inline IDACallHandlei operator>> ( IDACallHandlet ch, myclass_add_0& d) 
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while (ch.notAtEndOfBuf fer () ) { 
while ( !d.Lpage2_. isEmptyO ) { 

myclass_add_Lpage2* anElement - d . Lpage2_. f irstElement ( ) ; 
d . Lpage2_ , removeFirst ( } ; 
delete anElement; 

} 

myclass_add_Lpage2 tempLpage2_; 
while (Ch.notAtEndOfBuf ferOrSeq(0, 1, "0")) { 
ch >> (myclass_add_Lpage2 &) CempLpage2_; 

d.Lpage2_.addAsLast (new myclass_add_Lpage2 { tempLpage2_) ) ; 
d.Lpage2_f lag_ = 1; 

} 

if ( Ich.unmarshalLPAGEO } { 
if (ch.notNullSegment () ) { 

throw IXDMQIMSException ( (const char *) 

IMessageText (160, IXDMQIMS_MSG_FILE ) ); 
} else { 

throw IXDMQIMSException ( (const char *) 

IMessageText (161, IXDMQIMS_MSG_FILE) ) ; 

} 

} 

} 

return ch; 

} 

#endif 

MYCLASS . VBE 

//VBBeginPartlnf o : myclass 

//VBParent : IStandardNotif ier 

//VBIncludes : "myclass . hpp" _MYCLASS_HPP_ 

//VBPartDataFile : myclass . vbb 

//VBConstructor : myclass() 

//VBComposerlnf o : nonvisual 

//VBLibFile : idacom. lib 

//VB: idaimslO.lib 

//VBEvent: ready ," ready " , readyld 

//VBAction: add, "add method" , void, add (myclass_add_I * inputMsg , myclass_add_0* 
outputMsg) 

//VBPref erredFeatures : add, enabledForNotif ication , this 

//VBEndPartlnfo : myclass 

//VBBeginPartlnf o : myclass_add_I 

//VBParent : IStandardNotif ier 

//VBIncludes: "myclass . hpp " _MYCLASS_HPP_ 

//VBPartDataFile: myclass. vbb 

//VBConstructor: myclass_add_I ( ) 

//VBComposerlnf o : nonvisual 

//VBEvent: ready, "ready", readyld 

//VBAttribute : Lpagel_seq, "Lpagel_seq" , IVSequence<myclass_add_Lpagel * > , 
IVSequence<myclass_add_Lpagel*> Lpagel_seq < ) , myclass_add_I & setLpagel_seq ( 
IVSequence<myclass_add__Lpagel*> * aLpagel_) , Lpagel_seqld 
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//VBAttribute: Lpaqel » Tn 

J4»g-1_(). myclass aid i TltllliJT' 1 ^ 3 -^-^^ 1 ' ^lass add Lpage! 
Lpagel_id ~ ~ setLpagei_( myclass_add_Lpagel* aEpagel ) 

//VBAttribute: op i . ODl . lln . „ 9 ~ ' ■ 

°PM>. myclass add l' & IL'T^ Short *nt, unsigned short int 
//VBAttributeT op2 , ^ tsT^Tt iat a ° P1) < "*>P»S 

°P2(), myclass add i s, set^/ 9 Sh0rt int ' u nsigned short int 
//V^PreferredFeat^^^^^f sh °" aop 2 , , se t OP2 S 

//VBEndP a ,cTn,o ; m yclass P addV LPa9Sl -' ° Pl -< °P 2 -' tSi. 

//VBConstructor: myclass add LpagelM 
//VBComposerlnfo: nonvisual " 

//VBAttribute: opl ■ „„, . . ~ — V gej.& 

myclass_ad d _ Lpage r & setop^^f °£ f nt ' unsi ^ed short int opi 0 . 
//VBAttribute: op 2 , » op 2 -■ unsi^ V lnt a ° pl) < s ^opiid 

myclass add LpageTt slL^ ^ Sh ° rt int > signed short int od2 M 

//vBPr.?. rr ^ e n^: e ^^ ign ^ 1 8hort int -p2)-et OP2I d p2 °' 

/VBEndPartXnxo: myclass'add " ^ 

//VBEvent: ready, "ready", readvid 
//VBAttribute: Lpage2 sea " t , 

IVSeauen,e< m yclass add L^ges ?* 9 ^!^' ' IVSe ^ e "«<myclass add Lpage2*> 
lyseouence^yclass-add-^ 2 .: * a^! \ ^"-^ 0 t e^gea' < 

//VBAttribute: L page2 ~ "L^l, . aLpage2 -> < Lpage2_ seqId P ge2 - Se <J ( 

Lpage2_<,. myclass a ~ d T^Epa^ 1 ?"-'?*-^ 962 - m y C lass add Lpa ge2 
Lpage2_ld " - setL P age2__( m y cl a ss_add_L P age2 * aEpage2 , 

//VBAttribute: resultl " 3 ■ 

-sultl(,. myclass add 5 ' 3etre t sultlf 9ned ^ int ' ^^ned short int 

//VBBeginPartlnfo: myclass aHH , 
//unn, '»yt-J.ass add Lpaqe2 

//^Parent: IStandardNotif ler " 

//VBEvent: ready ready" , rea dyld 
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//VBAction: operator*, "Assigns 

Sge2:r d_LPa9e2,, ' myClaS3 - add - LPa9e2& '° Perat0r=(C0 ^ mycla S s_add_Lpage 2& 

reIul^n bU ™r/ eSUl L 1 -'" reSUltl ' , ' UnSigned Sh ° rt int, unsigned short int 
III ^, ' m y class - add - L Page2 & setresultl (unsigned short int 

aresultl) , setresultlld 

/ /VBPreferredFea tares : operator-, resultl , this 
//VBEndPartlnfo: myclass_add_Lpage2 

Mi'CLASS.CPP 

// 

// FILE NAME: myclass.cpp 

// 

#include "myclass . imd" 

INotificationid myclass_add_I:: L pagel_seqId = "Lpagel seqld"; 
INotificationid myclass_add_I::Lpagel_Id = "Lpagel Id"- 
INotificationid myclaas_add_l::setoplId = "setoplld" • ' 
INotificationid mycla SS _add_L P agel::setoplId = "setoplld"- 
INotificationid myclass_add_I::aeto P 2Id = "seto P 2Id" • 
INotificationid myclass_add_Lpagel::seto P 2Id = "seto P 2Id" - 
INotificationid mycla S s_add_0: : Lpage2_seqId = "Lpage2 seqid" • 
INotificationid myclass_add_0::Lpage2_Id = "Lpage2 id-- 
INotificationid myclass_add_0 : : setresultlld = "setresultlld"; 
INotificationid myclass_add_Lpage2 : .-setresultlld = "setresultlld"- 
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